home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / DATAFILE.TSL < prev    next >
Encoding:
Text File  |  1995-08-06  |  956 b   |  32 lines
  1. % -----------------------------------------------------------------------------
  2. % Text file demonstration                              *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : DATAFILE.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 06 Aug 1995
  10. %  Latest revision  : 06 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Opens a datafile and read the first 19 bytes
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. ClearScreen
  17. Window 1,1,80,20,6,0,23,23,27," Show text file "
  18. WriteAStr 2,0,31," Esc to Abort "
  19.  
  20. PrintLn
  21. PrintLn "Opening TERMINAT.DAT read only"
  22. Open 1,"TERMINAT.DAT",0,0
  23. PrintLn "Reading Bytes 0-18"
  24. Set Result = Read(1,19)
  25. PrintLn "Result = ",Result
  26. Close 1
  27.  
  28. Waitenter
  29.  
  30. RemoveWindow
  31.  
  32.